﻿
Namespace LightSwitchApplication

    Public Class CustomerList

        Private Sub AddCreditCardDetailsMethod_CanExecute(ByRef result As Boolean)
            ' Write your code here.
            If Not Me.CustomerInformations.SelectedItem Is Nothing Then
                result = (Me.CustomerInformations.SelectedItem.CCI Is Nothing)
            Else
                result = False
            End If

        End Sub

        Private Sub AddCreditCardDetailsMethod_Execute()
            ' Write your code here.
            Me.CustomerInformations.SelectedItem.CCI = New CCI
        End Sub

        Private Sub AddDriversLicenseMethod_CanExecute(ByRef result As Boolean)
            ' Write your code here.
            If Not Me.CustomerInformations.SelectedItem Is Nothing Then
                result = (Me.CustomerInformations.SelectedItem.DriversLicenseInfo Is Nothing)
            Else
                result = False
            End If
        End Sub

        Private Sub AddDriversLicenseMethod_Execute()
            ' Write your code here.
            Me.CustomerInformations.SelectedItem.DriversLicenseInfo = New DriversLicenseInfo
        End Sub
    End Class

End Namespace
